﻿Public Class frmAgregarCliente

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub frmAgregarCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarRubro' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarRubroTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarRubro)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarTipoTrabajo' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarTipoTrabajoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarTipoTrabajo)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarSexo' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarSexoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarSexo)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_EstadoCivil' Puede moverla o quitarla según sea necesario.
        Me.SP_EstadoCivilTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_EstadoCivil)
        Me.dtpFechaInicio.Text = Today
        Me.txtIdentidad.Focus()
    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        AgregarCliente()
    End Sub

    Private Sub AgregarCliente()
        Try
            SP_ListarClienteTableAdapter.SP_InsertarCliente(Me.txtIdentidad.Text, Me.txtNombre.Text, Me.txtApellido.Text, Me.txtDireccion.Text, Me.txtTelefono.Text, Me.txtCelular.Text, Me.txtCorreo.Text, Me.cboEstadoCivil.EditValue, Me.cboSexo.EditValue, Me.cboTipoTrabajo.EditValue, Me.cboRubro.EditValue, Me.txtSalario.Text, Me.dtpFechaInicio.Text, Me.dtpFechaNacimiento.Text)
            MessageBox.Show("Ha agregado un nuevo cliente", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


    Private Sub txtCelular_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCelular.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsLetter(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsPunctuation(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub


    Private Sub txtTelefono_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTelefono.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsLetter(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsPunctuation(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub


    Private Sub txtSalario_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSalario.KeyPress
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsLetter(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = True
        ElseIf Char.IsPunctuation(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
End Class